another_one:
cls : locate 1,1 : print "Catch the aei vowels!" : print "Press the vowel's key when you see it." : print "Don't make a mistake !"
i = int(rnd * 9) + 65
locate 5,1 : print "Score: " + str$(score%) : locate 7,1 : print "..."
_delay 1 : while inkey$ <> "" : wend : key_pressed$ = ""
locate 7,1 : print chr$(i) + "    " : _delay 1
key_pressed$ = ucase$(inkey$)
if (instr("AEI",chr$(i)) AND key_pressed$ = chr$(i)) then score% = score% + 1 : sound 2000,1 : goto another_one
if (instr("AEI",chr$(i)) = 0) AND key_pressed$ = "" then goto another_one
sound 40, 1 : score% = score% - 2 : goto another_one